Chip 2004 April/CMCD0404.ISO/Software/Shareware/Programare/magiccd/mcdbc111t.exe/%MAINDIR%/C++ Builder/Unit1.dfm

Text File | 2004-03-08 | 7.2 KB | 349 lines

object Form1: TForm1
  Left = 543
  Top = 437
  BorderStyle = bsDialog
  Caption = 'Magic CD/DVD Burner CPPB Demo (1.10.1)'
  ClientHeight = 391
  ClientWidth = 515
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 229
    Top = 63
    Width = 3
    Height = 170
    Cursor = crHSplit
  end
  object Splitter3: TSplitter
    Left = 0
    Top = 233
    Width = 515
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Panel1: TPanel
    Left = 0
    Top = 371
    Width = 515
    Height = 20
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 2
      Top = 2
      Width = 27
      Height = 16
      Align = alLeft
      Caption = ' CD : '
      Transparent = True
      Layout = tlCenter
    end
    object lSize: TLabel
      Left = 157
      Top = 2
      Width = 200
      Height = 16
      Align = alClient
      Alignment = taCenter
      Layout = tlCenter
    end
    object dbs: TProgressBar
      Left = 453
      Top = 2
      Width = 60
      Height = 16
      Align = alRight
      Min = 0
      Max = 100
      Smooth = True
      TabOrder = 0
    end
    object pb: TProgressBar
      Left = 29
      Top = 2
      Width = 128
      Height = 16
      Align = alLeft
      Min = 0
      Max = 100
      Smooth = True
      TabOrder = 1
    end
    object scs: TProgressBar
      Left = 357
      Top = 2
      Width = 96
      Height = 16
      Align = alRight
      Min = 0
      Max = 100
      Smooth = True
      TabOrder = 2
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 236
    Width = 515
    Height = 135
    Align = alBottom
    ImeName = '???(??) (MS-IME98)'
    PopupMenu = PopupMenu2
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 232
    Top = 63
    Width = 283
    Height = 170
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 135
      Top = 20
      Width = 3
      Height = 150
      Cursor = crHSplit
      Align = alRight
    end
    object lbFiles: TFileListBox
      Left = 138
      Top = 20
      Width = 145
      Height = 150
      Align = alRight
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ImeName = '???(??) (MS-IME98)'
      ItemHeight = 13
      MultiSelect = True
      ParentFont = False
      TabOrder = 0
    end
    object lbDir: TDirectoryListBox
      Left = 0
      Top = 20
      Width = 135
      Height = 150
      Align = alClient
      DragMode = dmAutomatic
      FileList = lbFiles
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ImeName = '???(??) (MS-IME98)'
      ItemHeight = 16
      ParentFont = False
      TabOrder = 1
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 283
      Height = 20
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object DriveComboBox1: TDriveComboBox
        Left = 0
        Top = 1
        Width = 282
        Height = 19
        DirList = lbDir
        ImeName = '???(??) (MS-IME98)'
        TabOrder = 0
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 515
    Height = 47
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 3
    OnClick = Panel4Click
    object Label1: TLabel
      Left = 1
      Top = 8
      Width = 40
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Drive : '
    end
    object cbDrives: TComboBox
      Left = 40
      Top = 3
      Width = 298
      Height = 22
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      OnChange = cbDrivesChange
    end
    object cSavePath: TCheckBox
      Left = 40
      Top = 28
      Width = 69
      Height = 17
      Caption = 'Save Path'
      TabOrder = 1
    end
    object cImportSession: TCheckBox
      Left = 117
      Top = 28
      Width = 92
      Height = 17
      Caption = 'Import Session'
      TabOrder = 2
    end
    object Panel3: TPanel
      Left = 340
      Top = 1
      Width = 174
      Height = 45
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 3
      object bErase: TButton
        Left = 2
        Top = 1
        Width = 84
        Height = 22
        Caption = 'Erase'
        TabOrder = 0
        OnClick = bEraseClick
      end
      object bEject: TButton
        Left = 44
        Top = 23
        Width = 42
        Height = 22
        Caption = 'Eject'
        TabOrder = 1
        OnClick = bEjectClick
      end
      object bLoad: TButton
        Left = 2
        Top = 23
        Width = 42
        Height = 22
        Caption = 'Load'
        TabOrder = 2
        OnClick = bLoadClick
      end
      object bBurn: TButton
        Left = 87
        Top = 1
        Width = 86
        Height = 44
        Caption = 'Burn'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = bBurnClick
      end
    end
    object Button1: TButton
      Left = 296
      Top = 26
      Width = 42
      Height = 20
      Caption = 'Info'
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object files: TCheckListBox
    Left = 0
    Top = 63
    Width = 229
    Height = 170
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 4
    OnDblClick = DeleteItem1Click
    OnDragDrop = filesDragDrop
    OnDragOver = filesDragOver
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 47
    Width = 515
    Height = 16
    Align = alTop
    Min = 0
    Max = 100
    Smooth = True
    TabOrder = 5
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 4
    Top = 160
  end
  object PopupMenu1: TPopupMenu
    Left = 32
    Top = 160
    object AddItem1: TMenuItem
      Caption = 'Add Item ...'
      Visible = False
    end
    object DeleteItem1: TMenuItem
      Caption = 'Delete Item'
      OnClick = DeleteItem1Click
    end
  end
  object od: TOpenDialog
    Left = 132
    Top = 84
  end
  object PopupMenu2: TPopupMenu
    Left = 188
    Top = 272
    object ClearAll1: TMenuItem
      Caption = 'Clear All'
      ShortCut = 119
      OnClick = ClearAll1Click
    end
  end
end